Celestin Apprentice 7/Apprentice-Release7.iso/Utilities/Programming/MT2Trivial 2.1.3/MT2Trivial 2.1.3 ƒ/Example ƒ/test.p

Text File | 1997-07-23 | 11.6 KB | 516 lines | [TEXT/MPS ]

{**********************************************************************
            WARNING!
            This source had been generated by
            version  2.1.3 of the MT2Trivial Tool.
            Be sure to ask author about improved
            version of the program :
                            Michael I Trofimov,
                            Internet: [e-mail]
            (Any comments & suggestions will be highly appreciated.)
**********************************************************************}
{%% MT2Trivial Generation: Program heading}
program test;
{%% unit test;}
{%%  INTERFACE }
{%%DOC: Uses.p.Trivial -- begin}
{ CONST Version  = '1.0';   For 'vers' resource}

USES
      Events
      ,Desk,Dialogs
      ,Fonts
      ,Memory,Menus
      ,QuickDraw
      ,ToolUtils
      ,Windows
{%% >> add necessary units here <<}
;
{
,ActionAtomIntf,ADSP,AEObjects,AEPackObject,AERegistry,AIFF,Aliases,AppleEvents,AppleTalk
,Balloons
,CommResources,Components,Connections,ConnectionTools,Controls,CRMSerialDevices,CTBUtilities
,CursorCtl
,DatabaseAccess,DeskBus,Devices,DisAsmLookup,DiskInit,Disks
,Editions,ENET,EPPC,ErrMgr,Errors
,Files,FileTransfers,FileTransferTools,Finder,FixMath,Folders
,GestaltEqu,Graf3D
,HyperXCmd
,Icons,ImageCodec,ImageCompression,IntEnv
,Language,Lists
,MacPrint,MediaHandlers,Memory,MemTypes,MIDI,Movies,MoviesFormat
,Notification
,ObjIntf,OSEvents,OSIntf,OSUtils
,Packages,PackIntf,PaletteMgr,Palettes,PasLibIntf,Perf,Picker,PickerIntf,PictUtil
,Power,PPCToolBox,Printing,PrintTraps,Processes
,QDOffscreen,QuickTimeComponents
,Resources,Retrace,ROMDefs,RTLib
,SANE,Scrap,Script,SCSI,SCSIIntf,SegLoad,Serial,ShutDown,Signal,Slots,Sound,SoundInput
,StandardFile,Start,Strings,SysEqu
,Terminals,TerminalTools,TextEdit,Timer,ToolIntf,Traps,Types
,Unmangler
,Video,VideoIntf
}

CONST

{%%DOC: Uses.p.Trivial-- eof}

  ALRT130MyAlertBox = 130; { My alert box DITL130 }
  BtnOk = 1; { Btn: Ok }
  StTTextInAlertBox = 2; { StT: Text in alert box }

  DLOG1281stDialog = 128; { 1st Dialog DITL128 }
  BtnOkZ = 1; { Btn: Ok }
  Btn2Cancel = 2; { Btn: 2Cancel }
  EdT = 3; { EdT:  }
  EdT2 = 4; { EdT: 2 }
  EdT3 = 5; { EdT: 3 }
  ChkDoIt = 6; { Chk: Do it }
  RadHi = 7; { Rad: Hi }
  Rad2Lo = 8; { Rad: 2Lo }
  Pic = 9; { Pic:  }
  Icn = 10; { Icn:  }
  StT = 11; { StT:  }
  StT2AnyText = 12; { StT: 2Any Text }

  DLOG1292ndDialog = 129; { 2nd Dialog DITL129 }
  BtnOkZZ = 1; { Btn: Ok }
  Btn2CancelZ = 2; { Btn: 2Cancel }
  Usr = 3; { Usr:  }
  StTPleaseSelectFileFromList = 4; { StT: Please, select file from list. }

  MBARID = 128; { MBARID }
  AppleID = 256; { AppleID }
  AboutTestEditMItem = 1; { About testEdit…MItem }
  MENU257File = 257; { File }
  NewMItem = 1; { NewMItem }
  OpenMItem = 2; { Open…MItem }
  CloseMItem = 3; { CloseMItem }
  SaveMItem = 5; { SaveMItem }
  SaveAsMItem = 6; { Save as…MItem }
  PageSetupMItem = 8; { Page Setup…MItem }
  PrintMItem = 9; { Print…MItem }
  QuitMItem = 11; { QuitMItem }
  MENU258Edit = 258; { Edit }
  UndoMItem = 1; { UndoMItem }
  CutMItem = 3; { CutMItem }
  CopyMItem = 4; { CopyMItem }
  PasteMItem = 5; { PasteMItem }
  ClearMItem = 6; { ClearMItem }
  SelectAllMItem = 7; { Select AllMItem }
  WIND128NewWindow = 128; { New Window }

{%%
 PROCEDURE DoALRT130MyAlertBox;
 PROCEDURE DoDLOG1281stDialog;
 PROCEDURE DoDLOG1292ndDialog;
 PROCEDURE DoMakeMenus;
 PROCEDURE DoNewWindow;
%%}

{%% IMPLEMENTATION }


{%%DOC: User.p.Trivial -- begin}


{%%DOC: User.p.Trivial -- eof}

 PROCEDURE DoBtnOk;
  begin { DoBtnOk }

  end; { DoBtnOk }

 PROCEDURE DoALRT130MyAlertBox;
  VAR
   itemHit : integer;

  begin { DoALRT130MyAlertBox }
itemHit := Alert (ALRT130MyAlertBox, nil);
    case itemHit of
      BtnOk : DoBtnOk;
     {StTTextInAlertBox : --disable }
     end; {case}
  end; { DoALRT130MyAlertBox }

 PROCEDURE DoBtnOkZ;
  begin { DoBtnOkZ }

  end; { DoBtnOkZ }

 PROCEDURE DoEdT;
  begin { DoEdT }

  end; { DoEdT }

 PROCEDURE DoEdT2;
  begin { DoEdT2 }

  end; { DoEdT2 }

 PROCEDURE DoEdT3;
  begin { DoEdT3 }

  end; { DoEdT3 }

 PROCEDURE DoChkDoIt;
  begin { DoChkDoIt }

  end; { DoChkDoIt }

 PROCEDURE DoRadHi;
  begin { DoRadHi }

  end; { DoRadHi }

 PROCEDURE DoRad2Lo;
  begin { DoRad2Lo }

  end; { DoRad2Lo }

 PROCEDURE DoIcn;
  begin { DoIcn }

  end; { DoIcn }

 PROCEDURE DoDLOG1281stDialog;
  VAR
   itemHit : integer;
   DialogW : DialogPtr;

  begin { DoDLOG1281stDialog }
   DialogW := GetNewDialog (DLOG1281stDialog,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      BtnOkZ : DoBtnOkZ;
     {Btn2Cancel : --disable }
      EdT : DoEdT;
      EdT2 : DoEdT2;
      EdT3 : DoEdT3;
      ChkDoIt : DoChkDoIt;
      RadHi : DoRadHi;
      Rad2Lo : DoRad2Lo;
     {Pic : --disable }
      Icn : DoIcn;
     {StT : --disable }
     {StT2AnyText : --disable }
     end; {case}
   UNTIL itemHit = BtnOkZ; {%%?}
   DisposeDialog (DialogW);
  end; { DoDLOG1281stDialog }

 PROCEDURE DoBtnOkZZ;
  begin { DoBtnOkZZ }

  end; { DoBtnOkZZ }

 PROCEDURE DoBtn2CancelZ;
  begin { DoBtn2CancelZ }

  end; { DoBtn2CancelZ }

 PROCEDURE DoDLOG1292ndDialog;
  VAR
   itemHit : integer;
   DialogW : DialogPtr;

  begin { DoDLOG1292ndDialog }
   DialogW := GetNewDialog (DLOG1292ndDialog,nil, pointer (-1));
   REPEAT
    ModalDialog (nil, itemHit); {%% >> Change it for modless dialog <<}
    case itemHit of
      BtnOkZZ : DoBtnOkZZ;
      Btn2CancelZ : DoBtn2CancelZ;
     {Usr : --disable }
     {StTPleaseSelectFileFromList : --disable }
     end; {case}
   UNTIL itemHit = BtnOkZZ; {%%?}
   DisposeDialog (DialogW);
  end; { DoDLOG1292ndDialog }

 PROCEDURE DoAboutTestEditMItem;
  begin { DoAboutTestEditMItem }

  end; { DoAboutTestEditMItem }

 PROCEDURE DoNewMItem;
  begin { DoNewMItem }

  end; { DoNewMItem }

 PROCEDURE DoOpenMItem;
  begin { DoOpenMItem }

  end; { DoOpenMItem }

 PROCEDURE DoCloseMItem;
  begin { DoCloseMItem }

  end; { DoCloseMItem }

 PROCEDURE DoSaveMItem;
  begin { DoSaveMItem }

  end; { DoSaveMItem }

 PROCEDURE DoSaveAsMItem;
  begin { DoSaveAsMItem }

  end; { DoSaveAsMItem }

 PROCEDURE DoPageSetupMItem;
  begin { DoPageSetupMItem }

  end; { DoPageSetupMItem }

 PROCEDURE DoPrintMItem;
  begin { DoPrintMItem }

  end; { DoPrintMItem }

 PROCEDURE DoQuitMItem (var Quit : Boolean);
  begin { DoQuitMItem }
  Quit := true;
  end; { DoQuitMItem }

 PROCEDURE DoUndoMItem;
  begin { DoUndoMItem }

  end; { DoUndoMItem }

 PROCEDURE DoCutMItem;
  begin { DoCutMItem }

  end; { DoCutMItem }

 PROCEDURE DoCopyMItem;
  begin { DoCopyMItem }

  end; { DoCopyMItem }

 PROCEDURE DoPasteMItem;
  begin { DoPasteMItem }

  end; { DoPasteMItem }

 PROCEDURE DoClearMItem;
  begin { DoClearMItem }

  end; { DoClearMItem }

 PROCEDURE DoSelectAllMItem;
  begin { DoSelectAllMItem }

  end; { DoSelectAllMItem }


{%%DOC: MenuComm.p.Trivial -- begin}

PROCEDURE DoMenuCommand(event: EventRecord; var quit : Boolean);

VAR
  menuResult: longint;
  menu,mitem: integer;

BEGIN
  menuResult:=MenuSelect(event.where);
  menu:=HiWord(menuResult);
  mitem:=LoWord(menuResult);

  CASE menu OF
{%%DOC: MenuComm.p.Trivial -- eof}
  AppleID : case mitem of
      AboutTestEditMItem : DoAboutTestEditMItem;
     end; {case -- AppleID }
  MENU257File : case mitem of
      NewMItem : DoNewMItem;
      OpenMItem : DoOpenMItem;
      CloseMItem : DoCloseMItem;
      SaveMItem : DoSaveMItem;
      SaveAsMItem : DoSaveAsMItem;
      PageSetupMItem : DoPageSetupMItem;
      PrintMItem : DoPrintMItem;
      QuitMItem : DoQuitMItem(Quit);
     end; {case -- MENU257File }
  MENU258Edit : case mitem of
      UndoMItem : DoUndoMItem;
      CutMItem : DoCutMItem;
      CopyMItem : DoCopyMItem;
      PasteMItem : DoPasteMItem;
      ClearMItem : DoClearMItem;
      SelectAllMItem : DoSelectAllMItem;
     end; {case -- MENU258Edit }
     end; {case}
  end; { DoMenuCommand }


{%%DOC: MakeMenu.p.Trivial -- begin}

PROCEDURE DoMakeMenus;
    var
        menuBar: Handle;

    BEGIN
      menuBar:=GetNewMBar(MBARID); {read menus and menu bar}

      IF menuBar<>NIL
        THEN
          BEGIN
            SetMenuBar(menuBar); {insert menus into the current menu list}
            DisposHandle(menuBar);
            AddResMenu(GetMHandle(AppleID),'DRVR'); {add desktop items in Apple Menu
                                                   Items folder to Apple menu}

            {%% >> adjust items and enabled state of menus <<}

            DrawMenuBar; {draw the menu bar}

          END;
    END; {DoMakeMenus}

{%%DOC: MakeMenu.p.Trivial -- eof}

{%%DOC: NewWindow.p.Trivial -- begin}

 PROCEDURE  DoNewWindow ( WINDId : integer; var window : WindowPtr);
  begin {DoNewWindow}

   window := nil;
   window := GetNewWindow ( WINDId,nil,WindowPtr(-1)); {%%? >> GetNewCWindow << }
 end; {DoNewWindow}

{%%DOC: NewWindow.p.Trivial -- eof}

{%%DOC: MainLoop.p.Trivial -- begin}

  PROCEDURE DoOSEvent(event: EventRecord; VAR cursorRgn: RgnHandle);
  {Handling operating-system events}

    VAR
      window: windowPtr;
      activate: boolean;

    BEGIN
      window:=FrontWindow;
      CASE BSR(event.message,24) OF
       mouseMovedMessage:

               {%% >> Adjust cursor <<};

        suspendResumeMessage:
          BEGIN
            activate:=(BAnd(event.message,resumeFlag)<>0);

           {%% >> activate appl. window <<};

          END;
        OTHERWISE;
      END;
    END; {DoOSEvent}

PROCEDURE DoMouseDown (event: EventRecord; var quit : Boolean);
    VAR
     part         : integer;
     aWindow     : WindowPtr;

    BEGIN
      part:=FindWindow(event.where,aWindow);
      CASE part OF
        InSysWindow:     SystemClick(event,aWindow);
        inMenuBar:      DoMenuCommand(event,quit);
        inDrag:         {%% >> <<};
        inGoAway:         {%% >> <<};
        inGrow:          {%% >> <<};
        inZoomIn,
        inZoomOut:         {%% >> handle mouse down in zoombox region <<};
        inContent:        {%% >> <<};
      END; {case part of}
    END; {DoMouseDown}

  PROCEDURE MainLoop;

    CONST
      kReturnKey = $0D;
      kEnterKey = $03;
      kEscKey = 27;


    VAR
      key: Char;
      quit,gotEvent,activate : Boolean;
      event: EventRecord;
      cursorRgn: RgnHandle;

    BEGIN
      cursorRgn:=NewRgn;
      quit:=false;
      REPEAT
        gotEvent:=WaitNextEvent(everyEvent,event,15,cursorRgn);
        IF gotEvent
          THEN
            CASE event.what OF
              osEvt: DoOSEvent(event,cursorRgn);
              activateEvt:
                BEGIN
                  activate:=BAnd(event.modifiers,activeFlag)<>0;
                          {%% >> <<}
                END;
              updateEvt:     {%% >> <<};
              mouseUp:         {%% >> <<};

              mouseDown: DoMouseDown (event,quit);

              keyDown,autoKey:
                BEGIN
                  key:=chr(BAnd(event.message,charCodeMask));
                  IF (BAnd(event.modifiers,cmdKey)<>0)
                    THEN {command key down}
                     {%% >> <<}
                    ELSE IF key IN [chr(kReturnKey),chr(kEnterKey)]
                      THEN {return or enter keys were pressed}
                         {%% >> <<}
                      ELSE IF (key=chr(kEscKey))
                        THEN {esc key was pressed}
                          BEGIN
                           {%% >> <<}
                          END
                         ELSE
                          {%% >> <<};
                 END;
              diskEvt:              {%% >> <<};
              nullEvent:         {%% >> <<};
            END; {case}
      UNTIL quit;
      DisposeRgn(cursorRgn);
    END; {MainLoop}

  PROCEDURE Init;
    BEGIN
      MaxApplZone;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;
      MoreMasters;

      InitGraf(@thePort);
      InitFonts;
      InitWindows;
      InitMenus;
      TEInit;
       InitDialogs(NIL);
      InitCursor;
       DoMakeMenus;

      {%% >> add another initialization here <<}
    END; {Init}

BEGIN {program body}
 Init;
 MainLoop;
END.
{%%DOC: MainLoop.p.Trivial -- eof}